      CDriveInfo
     

Dim strDriveSN As String
Set CDI = New CDriveInfo
strDriveSN = CDI.GetDriveSerialNumber
MsgBox (strDriveSN)

strDriveSN    